home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh40.d64 / demo 3 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  553b  |  18 lines
  1. 100 REM RECHENUEBUNGEN
  2. 110 TI$="000000"
  3. 120 A=INT(RND(1)*10)+2:B=INT(RND(1)*10)+2:C=INT(RND(1)*10)+20
  4. 130 IFA*B+C>100THEN120
  5. 140 PRINTA"*"B"+"C"= ?
  6. 160 [133]"ANTWORT";A%:L%[178]A[172]B[170]C
  7. 170 [139]A%[178]L%[167][153]"ONRICHTIG":R[178]R[170]1:[137]190
  8. 180 [153]"ONFALSCH  LOESUNG:";L%:F[178]F[170]1
  9. 190 [139]TI[179]3600[167] 120:[143] EINE MINUTE
  10. 200 [153]"SIE HABEN";R;"AUFGABE(N) GELOEST"
  11. 210 [139]F[177]1[167][153]"SIE MACHEN ZU VIELE FEHLER!"
  12. 220 [139]F[179]2[167][153]"SIE KOENNEN RICHTIG RECHNEN"
  13. 230 [139]R[179]10[167][153]"SIE MUESSEN SCHNELLER WERDEN!!"
  14. 240 [139]R[177]9[167][153]"SIE KOENNEN SCHNELL RECHNEN"
  15. 250 [153]"NOCH EINMAL [J/N]"
  16. 260 [161] A$:[139]A$[178]""[167]260
  17. 270 [139]A$[179][177]"N"[167][138]
  18.